home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2000-09-30 | 1.1 KB | 41 lines |
- "FILE"="Xteq Systems X-Setup Plugin 5.0"
- "TYPE"="1"
- "COUNT"="1"
- "UIPATH"="Program Options\Microsoft Office\MS Office 2000\Visio 2000"
- "NAME"="Visio 2000 Undo"
- "VERSION"="1.00"
- "LANGUAGE"="VBScript"
- "TEXT 1"="Number of UNDOs"
- "DESCRIPTION 1"="Enter the maximum number of UNDO operations VISIO will perform, for example "10" [no quotes]."
- "AUTHOR"="Ojatex@aol.com"
- "CONTACTURL"="http://members.aol.com/ojatex/"
- "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
- "COMMENT 1"="For additional X-Setup program information, go to http://www.xteq.com."
- "COMMENT 2"="Thanks to CptSiskoX for the tip."
-
- sPath="HKCU\Software\Visio\Visio 2000\document\"
-
- Sub Plugin_Initialize
- if RegPathExists(sPath)=false then
- Call Disable()
- else
-
- i=RegReadValue("HKCU\Software\Visio\Visio 2000\document\MaxUndo")
- SetUIElement 1,i
-
- end if
- End Sub
-
- Sub Plugin_CheckData(ElementIndex)
- End Sub
-
- Sub Plugin_Apply(ElementIndex,ElementSubIndex)
- i=GetUIElement(1)
-
- Call RegWriteValue("HKCU\Software\Visio\Visio 2000\document\MaxUndo",i,1)
-
- End Sub
-
- Sub Plugin_Terminate
- End Sub
-